home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00183_Mixer to Studio.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  1.1 KB  |  35 lines
  1. on mouseUp
  2.   global gBackgroundVolume, gWhereFrom, gBackgroundSound, gLastLoop, gWhichSound1, gWhichSound2, gWhichSound3, gWhichSound4, gWhichSound5, gWhichSound6, gWhichSound7, gWhichSound8, gWhichSound9, gWhichSound10, gWhichSound11
  3.   set the visible of sprite 48 to 0
  4.   set gLastLoop to 0
  5.   set the volume of sound 1 to 0
  6.   sound stop 1
  7.   set the volume of sound 2 to gBackgroundVolume
  8.   repeat with i = 3 to 15
  9.     set the volume of sound i to 0
  10.   end repeat
  11.   repeat with i = 3 to 15
  12.     sound stop i
  13.   end repeat
  14.   updateStage()
  15.   set gWhichSound1 to EMPTY
  16.   set gWhichSound2 to EMPTY
  17.   set gWhichSound3 to EMPTY
  18.   set gWhichSound4 to EMPTY
  19.   set gWhichSound5 to EMPTY
  20.   set gWhichSound6 to EMPTY
  21.   set gWhichSound7 to EMPTY
  22.   set gWhichSound8 to EMPTY
  23.   set gWhichSound9 to EMPTY
  24.   set gWhichSound10 to EMPTY
  25.   set gWhichSound11 to EMPTY
  26.   repeat with i = 30 to 35
  27.     set the visible of sprite i to 0
  28.   end repeat
  29.   repeat with i = 1 to 48
  30.     puppetSprite(i, 0)
  31.   end repeat
  32.   sound playFile 2, getpn() & "Sounds:Bckgrd" & gBackgroundSound & ".aif"
  33.   go(gWhereFrom)
  34. end
  35.